capture program drop disease_intensity

program disease_intensity

	args d h 

	replace  complication=0	if `d'=="25000"
	replace complication=0 if `d'=="25001"
	replace complication=0 if `d'=="25002"
	replace complication=0 if `d'=="25003"
	replace complication=1	if `d'=="25010"
	replace complication=1 if `d'=="25011"
	replace complication=1	if `d'=="25012"
	replace complication=1 if `d'=="25013"
	replace complication=1 if `d'=="25020"
	replace complication=1 if `d'=="25021"
	replace complication=1	if `d'=="25022"
	replace complication=1 if `d'=="25023"
	replace complication=2 if `d'=="25030"
	replace complication=2 if `d'=="25031"
	replace complication=2	if `d'=="25032"
	replace complication=2 if `d'=="25033"
	replace complication=2 if `d'=="25040"
	replace complication=2	if `d'=="25041"
	replace complication=2	if `d'=="25042"
	replace complication=2	if `d'=="25043"
	replace complication=2	if `d'=="25050"
	replace complication=2	if `d'=="25051"
	replace complication=2	if `d'=="25052"
	replace complication=2	if `d'=="25053"
	replace complication=2	if `d'=="25060"
	replace complication=2	if `d'=="25061"
	replace complication=2	if `d'=="25062"
	replace complication=2	if `d'=="25063"
	replace complication=2	if `d'=="25070"
	replace complication=2	if `d'=="25071"
	replace complication=2	if `d'=="25072"
	replace complication=2	if `d'=="25073"
	replace complication=2	if `d'=="25080"
	replace complication=2	if `d'=="25081"
	replace complication=2	if `d'=="25082"
	replace complication=2 if `d'=="25083"
	replace complication=1	if `d'=="25090"
	replace complication=1	if `d'=="25091"
	replace complication=1	if `d'=="25092"
	replace complication=1	if `d'=="25093"

	

	
	
	replace  type_II=1 if `d'==	"25000"
	replace type_II=0 if `d'=="25001"
	replace type_II=1 if `d'==	"25002"
	replace type_II=0 if `d'==	"25003"
	replace type_II=1 if `d'==	"25010"
	replace type_II=0 if `d'==	"25011"
	replace type_II=1 if `d'==	"25012"
	replace type_II=0 if `d'==	"25013"
	replace type_II=1 if `d'==	"25020"
	replace type_II=0 if `d'==	"25021"
	replace type_II=1 if `d'==	"25022"
	replace type_II=0 if `d'==	"25023"
	replace type_II=1 if `d'==	"25030"
	replace type_II=0 if `d'==	"25031"
	replace type_II=1 if `d'==	"25032"
	replace type_II=0 if `d'==	"25033"
	replace type_II=1 if `d'==	"25040"
	replace type_II=0 if `d'==	"25041"
	replace type_II=1 if `d'==	"25042"
	replace type_II=0 if `d'==	"25043"
	replace type_II=1 if `d'==	"25050"
	replace type_II=0 if `d'==	"25051"
	replace type_II=1 if `d'==	"25052"
	replace type_II=0 if `d'=="25053"
	replace type_II=1 if `d'==	"25060"
	replace type_II=0 if `d'==	"25061"
	replace type_II=1 if `d'==	"25062"
	replace type_II=0 if `d'==	"25063"
	replace type_II=1 if `d'==	"25070"
	replace type_II=0 if `d'==	"25071"
	replace type_II=1 if `d'==	"25072"
	replace type_II=0 if `d'==	"25073"
	replace type_II=1 if `d'==	"25080"
	replace type_II=0 if `d'==	"25081"
	replace type_II=1 if `d'==	"25082"
	replace type_II=0 if `d'==	"25083"
	replace type_II=1 if `d'==	"25090"
	replace type_II=0 if `d'==	"25091"
	replace type_II=1 if `d'==	"25092"
	replace type_II=0 if `d'==	"25093"


	replace  malignant=0 if `d'=="34820"
	replace malignant=1 if `d'=="36504"
	replace malignant=0 if `d'=="40100"
	replace malignant=0 if `d'=="40110"
	replace malignant=0 if `d'=="40190"
	replace malignant=1 if `d'=="40501"
	replace malignant=1 if `d'=="40509"
	replace malignant=0 if `d'=="40511"
	replace malignant=0 if `d'=="40519"
	replace malignant=0 if `d'=="40591"
    replace malignant=0 if `d'=="40599"
    replace malignant=0 if `d'=="41600"
    replace malignant=0 if `d'=="45930"
    replace malignant=0 if `d'=="45931"
    replace malignant=0 if `d'=="45932"
    replace malignant=0 if `d'=="45933"
    replace malignant=0 if `d'=="45939"
    replace malignant=0 if `d'=="57230"
    replace malignant=0 if `d'=="64200"
    replace malignant=0 if `d'=="64201"
    replace malignant=0 if `d'=="64202"
    replace malignant=0 if `d'=="64203"
    replace malignant=0 if `d'=="64204"
    replace malignant=0 if `d'=="64210"
    replace malignant=0 if `d'=="64211"
    replace malignant=0 if `d'=="64212"
    replace malignant=0 if `d'=="64213"
    replace malignant=0 if `d'=="64214"
    replace malignant=0 if `d'=="64220"
    replace malignant=0 if `d'=="64221"
    replace malignant=0 if `d'=="64222"
    replace malignant=0 if `d'=="64223"
    replace malignant=0 if `d'=="64224"
    replace malignant=0 if `d'=="64230"
    replace malignant=0 if `d'=="64231"
    replace malignant=0 if `d'=="64232"
    replace malignant=0 if `d'=="64233"
    replace malignant=0 if `d'=="64234"
    replace malignant=0 if `d'=="64270"
    replace malignant=0 if `d'=="64271"
    replace malignant=0 if `d'=="64272"
    replace malignant=0 if `d'=="64273"
    replace malignant=0 if `d'=="64274"
    replace malignant=0 if `d'=="64290"
    replace malignant=0 if `d'=="64291"
    replace malignant=0 if `d'=="64292"
    replace malignant=0 if `d'=="64293"
    replace malignant=0 if `d'=="64294"
    replace malignant=0 if `d'=="79620"

    replace  benign=0 if `d'=="34820"
    replace benign=0 if `d'=="36504"
    replace benign=0 if `d'=="40100"
    replace benign=1 if `d'=="40110"
    replace benign=0 if `d'=="40190"
    replace benign=0 if `d'=="40501"
    replace benign=0 if `d'=="40509"
    replace benign=1 if `d'=="40511"
    replace benign=1 if `d'=="40519"
    replace benign=0 if `d'=="40591"
    replace benign=0 if `d'=="40599"
    replace benign=0 if `d'=="41600"
    replace benign=0 if `d'=="45930"
    replace benign=0 if `d'=="45931"
    replace benign=0 if `d'=="45932"
    replace benign=0 if `d'=="45933"
    replace benign=0 if `d'=="45939"
    replace benign=0 if `d'=="57230"
    replace benign=0 if `d'=="64200"
    replace benign=0 if `d'=="64201"
    replace benign=0 if `d'=="64202"
    replace benign=0 if `d'=="64203"
    replace benign=0 if `d'=="64204"
    replace benign=0 if `d'=="64210"
    replace benign=0 if `d'=="64211"
    replace benign=0 if `d'=="64212"
    replace benign=0 if `d'=="64213"
    replace benign=0 if `d'=="64214"
    replace benign=0 if `d'=="64220"
    replace benign=0 if `d'=="64221"
    replace benign=0 if `d'=="64222"
    replace benign=0 if `d'=="64223"
    replace benign=0 if `d'=="64224"
    replace benign=0 if `d'=="64230"
    replace benign=0 if `d'=="64231"
    replace benign=0 if `d'=="64232"
    replace benign=0 if `d'=="64233"
    replace benign=0 if `d'=="64234"
    replace benign=0 if `d'=="64270"
    replace benign=0 if `d'=="64271"
    replace benign=0 if `d'=="64272"
    replace benign=0 if `d'=="64273"
    replace benign=0 if `d'=="64274"
    replace benign=0 if `d'=="64290"
    replace benign=0 if `d'=="64291"
    replace benign=0 if `d'=="64292"
    replace benign=0 if `d'=="64293"
    replace benign=0 if `d'=="64294"
    replace benign=0 if `d'=="79620"

    replace  unspecified=0 if `d'=="34820"
    replace unspecified=0 if `d'=="36504"
    replace unspecified=0 if `d'=="40100"
    replace unspecified=0 if `d'=="40110"
    replace unspecified=1 if `d'=="40190"
    replace unspecified=0 if `d'=="40501"
    replace unspecified=0 if `d'=="40509"
    replace unspecified=0 if `d'=="40511"
    replace unspecified=0 if `d'=="40519"
    replace unspecified=1 if `d'=="40591"
    replace unspecified=1 if `d'=="40599"
    replace unspecified=0 if `d'=="41600"
    replace unspecified=0 if `d'=="45930"
    replace unspecified=0 if `d'=="45931"
    replace unspecified=0 if `d'=="45932"
    replace unspecified=0 if `d'=="45933"
    replace unspecified=0 if `d'=="45939"
    replace unspecified=0 if `d'=="57230"
    replace unspecified=0 if `d'=="64200"
    replace unspecified=0 if `d'=="64201"
    replace unspecified=0 if `d'=="64202"
    replace unspecified=0 if `d'=="64203"
    replace unspecified=0 if `d'=="64204"
    replace unspecified=0 if `d'=="64210"
    replace unspecified=0 if `d'=="64211"
    replace unspecified=0 if `d'=="64212"
    replace unspecified=0 if `d'=="64213"
    replace unspecified=0 if `d'=="64214"
    replace unspecified=0 if `d'=="64220"
    replace unspecified=0 if `d'=="64221"
    replace unspecified=0 if `d'=="64222"
    replace unspecified=0 if `d'=="64223"
    replace unspecified=0 if `d'=="64224"
    replace unspecified=0 if `d'=="64230"
    replace unspecified=0 if `d'=="64231"
    replace unspecified=0 if `d'=="64232"
    replace unspecified=0 if `d'=="64233"
    replace unspecified=0 if `d'=="64234"
    replace unspecified=0 if `d'=="64270"
    replace unspecified=0 if `d'=="64271"
    replace unspecified=0 if `d'=="64272"
    replace unspecified=0 if `d'=="64273"
    replace unspecified=0 if `d'=="64274"
    replace unspecified=0 if `d'=="64290"
    replace unspecified=0 if `d'=="64291"
    replace unspecified=0 if `d'=="64292"
    replace unspecified=0 if `d'=="64293"
    replace unspecified=0 if `d'=="64294"
    replace unspecified=1 if `d'=="79620"

	
    replace  primary_hyp=0 if `d'=="34820"
    replace primary_hyp=0 if `d'=="36504"
    replace primary_hyp=1 if `d'=="40100"
    replace primary_hyp=1 if `d'=="40110"
    replace primary_hyp=1 if `d'=="40190"
    replace primary_hyp=0 if `d'=="40501"
    replace primary_hyp=0 if `d'=="40509"
    replace primary_hyp=0 if `d'=="40511"
    replace primary_hyp=0 if `d'=="40519"
    replace primary_hyp=0 if `d'=="40591"
    replace primary_hyp=0 if `d'=="40599"
    replace primary_hyp=1 if `d'=="41600"
    replace primary_hyp=0 if `d'=="45930"
    replace primary_hyp=0 if `d'=="45931"
    replace primary_hyp=0 if `d'=="45932"
    replace primary_hyp=0 if `d'=="45933"
    replace primary_hyp=0 if `d'=="45939"
    replace primary_hyp=0 if `d'=="57230"
    replace primary_hyp=1 if `d'=="64200"
    replace primary_hyp=1 if `d'=="64201"
    replace primary_hyp=1 if `d'=="64202"
    replace primary_hyp=1 if `d'=="64203"
    replace primary_hyp=1 if `d'=="64204"
    replace primary_hyp=0 if `d'=="64210"
    replace primary_hyp=0 if `d'=="64211"
    replace primary_hyp=0 if `d'=="64212"
    replace primary_hyp=0 if `d'=="64213"
    replace primary_hyp=0 if `d'=="64214"
    replace primary_hyp=0 if `d'=="64220"
    replace primary_hyp=0 if `d'=="64221"
    replace primary_hyp=0 if `d'=="64222"
    replace primary_hyp=0 if `d'=="64223"
    replace primary_hyp=0 if `d'=="64224"
    replace primary_hyp=0 if `d'=="64230"
    replace primary_hyp=0 if `d'=="64231"
    replace primary_hyp=0 if `d'=="64232"
    replace primary_hyp=0 if `d'=="64233"
    replace primary_hyp=0 if `d'=="64234"
    replace primary_hyp=0 if `d'=="64270"
    replace primary_hyp=0 if `d'=="64271"
    replace primary_hyp=0 if `d'=="64272"
    replace primary_hyp=0 if `d'=="64273"
    replace primary_hyp=0 if `d'=="64274"
    replace primary_hyp=0 if `d'=="64290"
    replace primary_hyp=0 if `d'=="64291"
    replace primary_hyp=0 if `d'=="64292"
    replace primary_hyp=0 if `d'=="64293"
    replace primary_hyp=0 if `d'=="64294"
    replace primary_hyp=0 if `d'=="79620"


    replace secondary_hyp=0 if `d'=="34820"
    replace secondary_hyp=0 if `d'=="36504"
    replace secondary_hyp=0 if `d'=="40100"
    replace secondary_hyp=0 if `d'=="40110"
    replace secondary_hyp=0 if `d'=="40190"
    replace secondary_hyp=0 if `d'=="40501"
    replace secondary_hyp=1 if `d'=="40509"
    replace secondary_hyp=0 if `d'=="40511"
    replace secondary_hyp=1 if `d'=="40519"
    replace secondary_hyp=0 if `d'=="40591"
    replace secondary_hyp=1 if `d'=="40599"
    replace secondary_hyp=0 if `d'=="41600"
    replace secondary_hyp=0 if `d'=="45930"
    replace secondary_hyp=0 if `d'=="45931"
    replace secondary_hyp=0 if `d'=="45932"
    replace secondary_hyp=0 if `d'=="45933"
    replace secondary_hyp=0 if `d'=="45939"
    replace secondary_hyp=0 if `d'=="57230"
    replace secondary_hyp=0 if `d'=="64200"
    replace secondary_hyp=0 if `d'=="64201"
    replace secondary_hyp=0 if `d'=="64202"
    replace secondary_hyp=0 if `d'=="64203"
    replace secondary_hyp=0 if `d'=="64204"
    replace secondary_hyp=1 if `d'=="64210"
    replace secondary_hyp=1 if `d'=="64211"
    replace secondary_hyp=1 if `d'=="64212"
    replace secondary_hyp=1 if `d'=="64213"
    replace secondary_hyp=1 if `d'=="64214"
    replace secondary_hyp=0 if `d'=="64220"
    replace secondary_hyp=0 if `d'=="64221"
    replace secondary_hyp=0 if `d'=="64222"
    replace secondary_hyp=0 if `d'=="64223"
    replace secondary_hyp=0 if `d'=="64224"
    replace secondary_hyp=0 if `d'=="64230"
    replace secondary_hyp=0 if `d'=="64231"
    replace secondary_hyp=0 if `d'=="64232"
    replace secondary_hyp=0 if `d'=="64233"
    replace secondary_hyp=0 if `d'=="64234"
    replace secondary_hyp=0 if `d'=="64270"
    replace secondary_hyp=0 if `d'=="64271"
    replace secondary_hyp=0 if `d'=="64272"
    replace secondary_hyp=0 if `d'=="64273"
    replace secondary_hyp=0 if `d'=="64274"
    replace secondary_hyp=0 if `d'=="64290"
    replace secondary_hyp=0 if `d'=="64291"
    replace secondary_hyp=0 if `d'=="64292"
    replace secondary_hyp=0 if `d'=="64293"
    replace secondary_hyp=0 if `d'=="64294"
    replace secondary_hyp=0 if `d'=="79620"

end
